Strategy Challenges Collection/Strategy Challenges Collection.iso/pc/demo/demodata/menu.dxr/00139.ls

Text File | 1996-10-02 | 385 b | 18 lines

on mouseDown
  buttonHilite()
end

on mouseUp
  global gAbort, gBeenThere
  if gAbort = 0 then
    set tempJump to the name of cast the castNum of sprite clickOn()
    set jumpName to chars(tempJump, 1, length(tempJump) - 5)
    puppetSound(0)
    if the number of chars in jumpName < 4 then
      exit
    end if
    PlayDemoFrame(jumpName, "ie")
    set gBeenThere to 0
  end if
end